home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / disk / cdrom / Atapi_PnP300.lha / atapi_pnp300 / Installa.Italiano < prev    next >
Text File  |  1996-09-18  |  18KB  |  681 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
  4. ; *
  5. ; * Installation for Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; ************************************************
  10.  
  11. ;/// Variabili
  12. ; ****************************
  13. ;       Variabili
  14. ; ****************************
  15. ;
  16.  
  17. (set DemoVersion        1) ; Demo Version
  18. (set ProductName        "ATAPI PnP ITALIAN VERSION"  )  ; product name
  19. (set ProductBaseName    "Atapi PnP")                    ; product base name
  20. (set VersionNum         "3.00")                         ; product version number
  21.  
  22. (set OSVersion          (/ (getversion) 65536))
  23. (set PctDone            0)
  24.  
  25. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  26.  
  27. (makeassign "CDPLUSPLUS" "" (safe))
  28.  
  29. (set Disk1Name                  "CDPLUSPLUS:")
  30.  
  31. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  32.  
  33. ;///
  34.  
  35. ;/// Proc setPkgOPts
  36. (procedure setPkgOpts
  37. ;
  38. ; ****************************
  39. ; * Wich Parts
  40. ; ****************************
  41. ;
  42.   (
  43.         (set PkgOpts
  44.                 (askoptions
  45.                         (prompt
  46.                            "Scegli le parti che vuoi installare"
  47.                            ("del pacchetto %s" ProductName)
  48.                         )
  49.                         (help
  50.                                 "Questa parte dell'installazione ti permette di scegliere quali moduli del"
  51.                                 (" pacchetto %s vuoi installare.\n" ProductName)
  52.                                 "\n"
  53.                                 "*** Atapi Device Driver\n"
  54.                                 "Questa opzione farà si che verrà installato il device"
  55.                                 " driver (cd.device )nella directory Devs: (Fondamentale)\n"
  56.                                 "\n"
  57.                                 "*** CDplusplusFS\n"
  58.                                 "Questa opzione installerà il file system proprietario"
  59.                                 " della CD++ nella directory L: (Consigliato).\n"
  60.                                 "\n"
  61.                                 "*** MAP-Mini Atapi Player\n"
  62.                                 "Questa opzione installerà una utility che permette la"
  63.                                 " riproduzione di CD-Audio anche misti.\n"
  64.                                 "\n"
  65.                                 "*** TRKDownLoad Track-Downloader\n"
  66.                                 "Questa opzione farà installare un utility che permette"
  67.                                 " il salvataggio su file di parti di tracce audio o dati.\n"
  68.                                 "\n"
  69.                                 "*** PlayCDXL\n"
  70.                                 "Questa opzione installerà un utility che permette la"
  71.                                 " riproduzione in tempo reale di film CDXL.\n"
  72.                                 "\n"
  73.                                 "*** CD_IDE\n"
  74.                                 "Questa opzione installerà un utility che permette di"
  75.                                 " settare alcune opzioni speciali.\n"
  76.                                 "\n"
  77.                                 @askoptions-help
  78.                         )
  79.                         (choices
  80.                                 ; bit position 0 -- todo & 1
  81.                                 ;
  82.                                 "Atapi Device Driver          (21 Kbytes)"
  83.  
  84.                                 ; bit position 1 -- todo & 2
  85.                                 ;
  86.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  87.  
  88.                                 ; bit position 2 -- todo & 4
  89.                                 ;
  90.                                 "MAP- Mini Atapi Player       (10 Kbytes)"
  91.  
  92.                                 ; bit position 3 -- todo & 8
  93.                                 ;
  94.                                 "TRKDownLoad- Track DownLoader(28 Kbytes)"
  95.  
  96.                                 ; bit position 4 -- todo & 16
  97.                                 ;
  98.                                 "PlayCDXL - Player Film CDXL  (23 Kbytes)"
  99.                                 ; bit position 5 -- todo & 32
  100.                                 ;
  101.                                 "CD_IDE -Preferenze del Device (8 Kbytes)"
  102.  
  103.                         )
  104.                 )
  105.         )
  106.   )
  107. )
  108. ;///
  109.  
  110. ;/// Proc setDirPath
  111.  
  112. (procedure setDirPath
  113. ;
  114. ; ****************************
  115. ; * Ask the user for a directory name.
  116. ; ****************************
  117. ;
  118. ; these variables must be defined before calling this procedure:
  119. ;    setDirPathWhy
  120. ;    setDirPathHelp
  121. ;    DirPath
  122. ;
  123. ; this procedure returns the selected directory in DirPath
  124. ;
  125.    (
  126.  
  127.        (set DirPath
  128.                (askdir
  129.                        (prompt ("Seleziona il disco sul quale installare il pacchetto\n(IL DISCO DI BOOT.   Normalmente SYS: )" )
  130.  
  131.                        )
  132.                        (help   "Il Pacchetto verrà installato sul disco"
  133.                                " prescelto .\n"
  134.                                "Se volete installare il pacchetto su un dischetto"
  135.                                " bootabile inserite quest'ultimo e sceglietelo"
  136.                                " dalla lista che si presenta\n"
  137.                                "\n"
  138.                                @askdir-help
  139.                        )
  140.                        (disk)
  141.                        (default "SYS:")
  142.                )
  143.        )
  144.  
  145.  
  146.  
  147.    )
  148. )
  149. ;///
  150.  
  151. ;/// Proc AskFsIcon
  152. ;
  153. ;
  154. (procedure AskFsIcon
  155. ;
  156. ; This procedure ask of wich cd Icon you want to install with wich Name
  157. ; It requires initialization of variables:
  158. ;
  159. ; In "DefaultIcon" ci deve essere quella accesa di default
  160. ; 
  161. ; Ridà in "IconChoose" qual icona
  162. ; 0 nessuna - 1 AmiCDFilesystem
  163. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  164. ;
  165.   (
  166.     (set IconChoose
  167.      
  168.            (askchoice
  169.                 (prompt "Scegli per quale CD-Filesystem installare l'icona")
  170.                 (help
  171.                         "Potete scegliere per quale filesystem"
  172.                         " installare il pacchetto.\n"
  173.                         "Nel caso che abbiate installato il"
  174.                         " CDpluplusFS , scegliete quest'ultimo.\n"
  175.                         "\n"
  176.                         "Se il filesystem in vostro possesso"
  177.                         " non è presente tra quelli nella lista"
  178.                         " scegliete -Nessuno- e modificate nei"
  179.                         " tooltype dell'icona del vostro device"
  180.                         " CD la voce Device con\nDevice=cd.device\n"
  181.                         "e la voce Unit con\nUnit=0\n"
  182.                         @askchoice-help
  183.                 )
  184.                 (choices
  185.                         "-Nessuno"
  186.                         "-AmiCDFileSystem - by Nicola Salmoria"
  187.                         "-cdrom-handler   - by Frank Munkert"
  188.                         "-CDFileSystem    - by CBM Commodore"
  189.                         "-AsimCDFS        - by AsimWare"
  190.                         "-QDriveFileSystem- by Amiga Tech."
  191.                         "-CDplusplusFS    - by CD++"
  192.                 )
  193.                 (default DefaultIcon)
  194.            )
  195.     )
  196.   )
  197. )
  198. ;///
  199.  
  200. ;/// Proc GetDevName
  201. ;
  202. ;  in DevName si ritrova il nome da usare per l'icona
  203. ;
  204.  
  205.  
  206. (procedure GetDevName
  207.    
  208.    (
  209.      (set DevName
  210.            (askstring
  211.                      (prompt "Scrivi il nome per il device CD-Rom senza i due punti\nEs. CD0")
  212.                      (help
  213.                              "Il nome scelto sarà quello del"
  214.                              " Device fisico\n"
  215.                              "E' conveniente non scegliere"
  216.                              " nomi troppo lunghi\n"
  217.                              "\nE' consigliabile CD0 o CD1 ecc."
  218.                              " dato che molti programmi cercano"
  219.                              " questo nome\n"
  220.                      )
  221.                      (default "CD0")
  222.            )
  223.      )
  224.    )
  225. )
  226. ;///
  227.  
  228. ;/// Proc AskAutoMount
  229. ;
  230. ;
  231. (procedure AskAutoMount
  232. ;
  233. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  234. ; storage dosdrivers
  235. ;
  236.   (
  237.     (set AutoMount
  238.      
  239.            (askbool
  240.                 (prompt "Vuoi che il device Atapi venga montato"
  241.                         " automaticamente ad ogni riavvio ,od"
  242.                         " a ogni accensione ?"
  243.                 )
  244.                 (help
  245.                         "Rispondendo positivamente l'icona del"
  246.                         " device verrà posta nel cassetto:\n"
  247.                         "Devs:Dosdrivers\n"
  248.                         "In questo modo il lettore CD-ROM sarà disponibile"
  249.                         " ad ogni riavvio o accensione della macchina\n\n"
  250.                         "Altrimemti in: Storage:DosDrivers\n"
  251.                         "ed il lettore sarà utilizzabile solo dopo aver cliccato due volte sulla sua Icona"
  252.                 )
  253.                 (choices
  254.                         "Monta al Riavvio"
  255.                         "No,Montaggio manuale"
  256.                 )
  257.                 (default 1)
  258.            )
  259.     )
  260.   )
  261. )
  262. ;///
  263.  
  264.  
  265. ; *************************************************************************
  266. ; *                         ACTUAL START OF SCRIPT
  267. ; *
  268. ; * Ask all questions for the user now, do all of the work later.
  269. ; *************************************************************************
  270. ;
  271. ;/// MAIN SCRIPT
  272. (onerror
  273.  
  274. )
  275. ; ****************************
  276. ;  Check for OS Version
  277. ; ****************************
  278.  
  279. (if (= DemoVersion 1)
  280.     (message "\n" "\n"
  281.              "Attenzione: Questa è una versione DEMO\n"
  282.              "del Pacchetto Atapi PnP !\n"
  283.              "PUOI RIDISTRIBUIRE IL DISCO\n"
  284.              "COMPLETO A CHIUNQUE (tranne ai Crakker)" "\n"
  285.              "\n"
  286.              "Atapi Plug'n Play is Copyright by \n"
  287.              "Georg Campana & Marco Campinoti ©1994\n\n"
  288.              "E-Mail: georg@etruscan.li.it\n"
  289.  
  290.              (help "Per avere la versione registrata , completamente funzionante leggete il manuale o chiamate : 0565/850621 e 0565/853005")
  291.     )
  292.  
  293.     (message "\n" "\n"
  294.              "Attenzione: Questa è la versione Registrata\n"
  295.              "del Pacchetto Atapi PnP !\n"
  296.              "E' VIETATO RIDISTRIBUIRE QUALSIASI FILE\n"
  297.              "PRESENTE IN QUESTO DISCHETTO" "\n"
  298.              "( I file sono contrassegnati )\n"
  299.              "Atapi Plug'n Play is Copyright by \n"
  300.              "Georg Campana & Marco Campinoti ©1994\n\n"
  301.              "E-Mail: georg@etruscan.li.it\n"
  302.  
  303.              (help "Se volete fare registrare chiamate: 0565/850621 o 0565/853005")
  304.     )
  305. )
  306.  
  307.  
  308. ; ****************************
  309. ; ****************************
  310. ;
  311.  
  312. (set DirPath "SYS:")
  313.  
  314. (setDirPath)
  315.  
  316. (set @default-dest DirPath)
  317.  
  318. (set devdest  (tackon @default-dest "Devs"))
  319. (set fsdest   (tackon @default-dest "L"))
  320. (set utildest (tackon @default-dest "Utilities"))
  321. (set prefdest (tackon @default-dest "Prefs"))
  322.  
  323.  
  324. (setPkgOpts)
  325.  
  326. (set DefaultIcon 0)
  327.  
  328. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  329.     (set DefaultIcon 1)
  330. )
  331.  
  332. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  333.     (set DefaultIcon 2)
  334. )
  335.  
  336. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  337.     (set DefaultIcon 3)
  338. )
  339.  
  340. (if (= (exists (tackon fsdest "AsimCDFS")) 1)
  341.     (set DefaultIcon 4)
  342. )
  343.  
  344. (if (= (exists (tackon fsdest "QDriveFileSystem")) 1)
  345.     (set DefaultIcon 5)
  346. )
  347.  
  348. (if (= (exists (tackon fsdest "CDplusplusFS")) 1)
  349.     (set DefaultIcon 6)
  350. )
  351.  
  352.  
  353. (if (IN PkgOpts 1)
  354.     (set DefaultIcon 6)
  355. )
  356.  
  357. (AskFsIcon)
  358.  
  359. (select IconChoose
  360.    (set FsName 0)
  361.    (set FsName "AmiCDFS")
  362.    (set FsName "AmiCDHandler")
  363.    (set FsName "CbmCDFS")
  364.    (set FsName "AsimCDFS")
  365.    (set FsName "QDriveFilesystem")
  366.    (set FsName "CDplusplusFS")
  367. )
  368.  
  369.  
  370. (set AutoMount 1)
  371. (set DevName "CD0")
  372.  
  373. (if (> @user-level 1)
  374.  
  375.     (if (<> IconChoose 0)
  376.         (
  377.          (GetDevName)
  378.          (AskAutoMount)
  379.         )
  380.     )
  381. )
  382.  
  383. (if (= AutoMount 1)
  384.     (set Icondest  (tackon @default-dest "Devs"))
  385.     (set Icondest  (tackon @default-dest "Storage"))
  386. )
  387.  
  388.  
  389.  
  390.  
  391.  
  392. (if (IN PkgOpts 0)
  393.     (set MemSpace (+ MemSpace 21000))
  394. )
  395. (if (IN PkgOpts 1)
  396.     (set MemSpace (+ MemSpace 23000))
  397. )
  398. (if (IN PkgOpts 2)
  399.     (set MemSpace (+ MemSpace 10000))
  400. )
  401. (if (IN PkgOpts 3)
  402.     (set MemSpace (+ MemSpace 28000))
  403. )
  404. (if (IN PkgOpts 4)
  405.     (set MemSpace (+ MemSpace 23000))
  406. )
  407. (if (IN PkgOpts 5)
  408.     (set MemSpace (+ MemSpace 8000))
  409. )
  410. (if (<> IconChoose )
  411.     (set MemSpace (+ MemSpace 1000))
  412. )
  413.  
  414. (if (< (getdiskspace DirPath) MemSpace)
  415.     (if(> (getdiskspace DirPath) 0)
  416.        (
  417.           (abort "ATTENZIONE: Lo spazio disponibile\n"
  418.                  ("sul disco %s\n" DirPath)
  419.                  ("è di soli %ld bytes\n" (getdiskspace DirPath) )
  420.                  ("e ne servono almeno %ld\n" MemSpace)
  421.                  "\n"
  422.                  "Rilanciate l'icona di Installazione\n"
  423.                  "e selezionate meno utility , oppure\n"
  424.                  "cancellate qualche file dal vostro\n"
  425.                  ("disco %s\n" DirPath)
  426.           )
  427.        )
  428.     )
  429. )
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444. ; if bit position 0 is on  Installa device
  445. (if (IN PkgOpts 0)
  446.      (
  447.  
  448.        (if (< (exists devdest (noreq)) 2)
  449.  
  450.            (makedir devdest
  451.               (prompt "Creo una directory -Devs-")
  452.               (infos)
  453.            )
  454.  
  455.            (if (= DemoVersion 0)
  456.               (
  457.  
  458.                (set newver (getversion (tackon Disk1Name "devs/cd.device")))
  459.                (set oldver (getversion (tackon devdest   "cd.device")))
  460.  
  461.                (if (= newver oldver)
  462.                    (delete (tackon devdest   "cd.device"))
  463.                )
  464.               )
  465.            )
  466.        )
  467.  
  468.        (if (< OSVersion 39)
  469.          (
  470.            (copylib
  471.                (prompt "Installo Device Driver")
  472.                (source (tackon Disk1Name "devs/cd_a600.device"))
  473.                (newname "cd.device")
  474.                (dest  devdest)
  475.                (optional force)
  476.            )
  477.          )
  478.  
  479.          (
  480.            (copylib
  481.                (prompt "Installo Device Driver")
  482.                (source (tackon Disk1Name "devs/cd.device"))
  483.                (dest devdest)
  484.                (optional force)
  485.            )
  486.          )
  487.        )
  488.      )
  489. )
  490. ; if bit position 1 is on Installa FileSystem
  491. (if (IN PkgOpts 1)
  492.      (
  493.  
  494.  
  495.  
  496.  
  497.         (if (< (exists fsdest (noreq)) 2)
  498.  
  499.             (makedir fsdest
  500.                (prompt "Creo una directory -L-")
  501.             )
  502.         )
  503.  
  504.  
  505.         (copylib
  506.             (prompt "Installo FileSystem della CD++")
  507.             (source (tackon Disk1Name "l/CDplusplusFS"))
  508.             (dest fsdest)
  509.             (optional force)
  510.         )
  511.         
  512.  
  513.      )
  514. )
  515.  
  516. ; if bit position 2 is on Installa MAP
  517. (if (IN PkgOpts 2)
  518.      (
  519.  
  520.         
  521.         (if (< (exists utildest (noreq)) 2)
  522.  
  523.             (makedir utildest
  524.                (prompt "Creo una directory -Utilities-")
  525.                (infos)
  526.             )
  527.         )
  528.  
  529.  
  530.         (copyfiles
  531.             (prompt "Installo Mini Atapi Player")
  532.             (source (tackon Disk1Name "utilities/MAP"))
  533.             (dest utildest)
  534.             (infos)
  535.             (optional force)
  536.         )
  537.         
  538.  
  539.      )
  540. )
  541.  
  542. ; if bit position 3 is on Installa TRKDownLoad
  543. (if (IN PkgOpts 3)
  544.      (
  545.  
  546.         
  547.         (if (< (exists utildest (noreq)) 2)
  548.  
  549.             (makedir utildest
  550.                (prompt "Creo una directory -Utilities-")
  551.                (infos)
  552.             )
  553.         )
  554.  
  555.  
  556.         (copyfiles
  557.             (prompt "Installo TrkDownLoader")
  558.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  559.             (dest utildest)
  560.             (infos)
  561.             (optional force)
  562.         )
  563.         
  564.  
  565.      )
  566. )
  567.  
  568. ; if bit position 4 is on Installa PlayCDXL
  569. (if (<> DemoVersion 2) ; NOTA messo a 2 che è diverso da 0 e 1
  570.    (if (IN PkgOpts 4)
  571.         (
  572.  
  573.            
  574.            (if (< (exists utildest (noreq)) 2)
  575.  
  576.                (makedir utildest
  577.                   (prompt "Creo una directory -Utilities-")
  578.                   (infos)
  579.                )
  580.            )
  581.  
  582.  
  583.            (copyfiles
  584.                (prompt "Installo PlayCDXL")
  585.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  586.                (dest utildest)
  587.                (infos)
  588.                (optional force)
  589.            )
  590.            
  591.  
  592.         )
  593.    )
  594. )
  595.  
  596. ; if bit position 5 is on  Installa CD_IDE
  597. (if (IN PkgOpts 5)
  598.      (
  599.  
  600.  
  601.         (if (< (exists prefdest (noreq)) 2)
  602.  
  603.             (makedir prefdest
  604.                (prompt "Creo una directory -Prefs-")
  605.                (infos)
  606.             )
  607.         )
  608.  
  609.  
  610.         (copyfiles
  611.             (prompt "Installo CD_IDE")
  612.             (source (tackon Disk1Name "prefs/CD_IDE"))
  613.             (dest prefdest)
  614.             (infos)
  615.             (optional force)
  616.         )
  617.  
  618.  
  619.      )
  620. )
  621.  
  622.  
  623.  
  624.  
  625. (if (> IconChoose 0)
  626.     (
  627.         (if (< (exists Icondest (noreq)) 2)
  628.  
  629.             (makedir Icondest
  630.                (prompt "Creo una directory Devs o Storage")
  631.                (infos)
  632.             )
  633.         )
  634.  
  635.         (set Icondest  (tackon Icondest "Dosdrivers"))
  636.          
  637.         (copyfiles
  638.             (prompt "Installo l'Icona del Device")
  639.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  640.             (dest IconDest)
  641.             (newname  DevName)
  642.             (infos)
  643.             (optional force)
  644.         )
  645.  
  646.     
  647.         (if (= AutoMount 1)
  648.             ( message "\n" "\n"
  649.                    "Ad ogni riavvio del calcolatore o ad ogni\n"
  650.                    "accensione- il lettore CD-ROM verrà \"Montato\"\n"
  651.                    "automaticamente !\n"
  652.                    "\n"
  653.                    "Potete disabilitare questo automatismo\n"
  654.                    ("trascinando l'icona %s dal cassetto " DevName)
  655.                    "Devs/Dosdrivers nel cassetto Storage/Dosdrivers\n"
  656.             )
  657.             ( message "\n" "\n"
  658.                    "Potete \"Montare\"\n il lettore CD-ROM\n"
  659.                    ("cliccando semplicemente sull'Icona %s\n" DevName)
  660.                    "nel cassetto Storage/Dosdrivers\n"
  661.                    "Per abilitare il montaggio automatico\n"
  662.                    "trascinate l'Icona nel cassetto Devs/Dosdrivers"
  663.             )
  664.         )
  665.     )
  666.     ( message "\n" "\n"
  667.            "Non è stata installata alcuna Icona per\n"
  668.            "il montaggio del lettore CD-ROM .\n"
  669.            "E' necessario quindi costruirsi quest'ultima\n"
  670.            "autonomamente seguendo le istruzioni del\n"
  671.            "proprio filesystem !\n"
  672.            "\n"
  673.            "Potete anche rilanciare l'icona di installazione\n"
  674.            "e selezionare un filesystem alla richiesta\n"
  675.     )
  676.  
  677. )
  678.  
  679. (exit)
  680. ;///
  681.